From: Martin Rudalics Date: Sun, 10 Jun 2007 16:14:18 +0000 (+0000) Subject: (byte-compile-find-cl-functions): Match X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~18499 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=104d992cf6dfdf67bff6392e387eff72ae856982;p=emacs.git (byte-compile-find-cl-functions): Match against file-name-nondirectory. Fix text on user customization variables. --- diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 0a37f098a7b..619b7533ca7 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -98,7 +98,7 @@ ;; `obsolete' (obsolete variables and functions) ;; `noruntime' (calls to functions only defined ;; within `eval-when-compile') -;; `cl-warnings' (calls to CL functions) +;; `cl-functions' (calls to CL functions) ;; `interactive-only' (calls to commands that are ;; not good to call from Lisp) ;; `make-local' (dubious calls to @@ -1348,7 +1348,8 @@ extra args." (unless byte-compile-cl-functions (dolist (elt load-history) (when (and (stringp (car elt)) - (string-match "^cl\\>" (car elt))) + (string-match + "^cl\\>" (file-name-nondirectory (car elt)))) (setq byte-compile-cl-functions (append byte-compile-cl-functions (cdr elt)))))